home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Bavarian / Bavarian #056 (19xx)(APS Electronic).zip / Bavarian #056 (19xx)(APS Electronic).adf / rocket.inp < prev    next >
Text File  |  1987-08-19  |  847b  |  49 lines
  1. /* rocket.inp - macro file to define a rocket ship */
  2.  
  3. message "Definition of Rocket:"
  4.  
  5.     macro RocketBody
  6.     object of metal with
  7.         point 1  0  0
  8.         point 1  2  0
  9.         point 2  3  0
  10.         point 4  3  0
  11.         point 4  36 0
  12.         point 2  43 0
  13.         point .1 45 0
  14.         point .1 56 0
  15.         point 0  57 0
  16.         sides 6
  17.     done RocketBody
  18.     macro RocketFin
  19.     object of metal with
  20.         point 0  2  0
  21.         point 2  0  0
  22.         point 2  4  0
  23.         point 4  6  0
  24.         point 4  13 0
  25.         point 0  9  0
  26.         sides 3
  27.         arc 15
  28.         close 1 1
  29.     done RocketFin
  30.     macro RocketFins
  31.     RocketFin
  32.         roty 180
  33.         translate   8 0 0
  34.     RocketFin
  35.         translate  -8 0 0
  36.     done RocketFins
  37.     macro RocketEngine
  38.     object of fire with
  39.         point 0 -4  0
  40.         point 1  2  0
  41.         sides 6
  42.     done RocketEngine
  43.     macro Rocket
  44.     RocketBody
  45.     RocketFins
  46.     RocketEngine
  47.     done Rocket
  48.  
  49.